home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 30 / Amiga Format AFCD30 (Sep 1998, Issue 114).iso / -seriously_amiga- / workbench / ordering / install_ordering next >
Text File  |  1998-06-29  |  7KB  |  282 lines
  1. (complete 0)
  2. (welcome)
  3.  
  4. (message
  5.     "\n\n\n\n"
  6.     "Welcome to Ordering installation script.\n"
  7. )
  8.  
  9.  
  10. (set @default-dest
  11.     (askdir (prompt "Please select the directory where you want\nto install Ordering (NO drawer will be created)")
  12.         (help @askdir-help)
  13.         (default "SYS:")
  14.     )
  15. )
  16.  
  17. (copyfiles
  18.     (prompt "\nCopying Ordering...\n")
  19.     (help @copyfiles-help)
  20.     (source "Ordering")
  21.     (dest   @default-dest)
  22.     (files)
  23. )
  24.  
  25.  
  26. (complete 15)
  27.  
  28. (copyfiles
  29.     (prompt "\nCopying Ordering Preferences Editor...\n")
  30.     (help @copyfiles-help)
  31.     (source "OrderingPrefs")
  32.     (dest   @default-dest)
  33.     (files)
  34. )
  35.  
  36.  
  37. (complete 30)
  38.  
  39. (set icons
  40.     (askchoice
  41.         (prompt "Which icons do you want to install ?")
  42.         (help "MagicWB icons need at least 8 colours.\n\n" @askchoice-help)
  43.         (choices "Normal style" "MagicWB style")
  44.         (default 0)
  45.     )
  46. )
  47.  
  48. (set iconsdir "\0")
  49. (if (= icons 1)
  50.    (set iconsdir "MWBIcons")
  51. )
  52.  
  53. (copyfiles
  54.     (prompt "\nCopying Ordering icon...\n")
  55.     (help @copyfiles-help)
  56.    (source (tackon iconsdir "Ordering.info"))
  57.     (dest   @default-dest)
  58.     (files)
  59. )
  60.  
  61. (copyfiles
  62.     (prompt "\nCopying OrderingPrefs icon...\n")
  63.     (help @copyfiles-help)
  64.    (source (tackon iconsdir "OrderingPrefs.info"))
  65.     (dest   @default-dest)
  66.     (files)
  67. )
  68.  
  69.  
  70. (complete 40)
  71.  
  72. (set wert1 (/ (getversion "libs/reqtools.library") 65536))
  73. (set wert2 (BITAND (getversion "libs/reqtools.library") 65535))
  74.  
  75. (set flag 1)
  76. (if    (exists "Libs:reqtools.library" (noreq))
  77.     (
  78.         (set oldwert1 (/ (getversion "libs:reqtools.library") 65536))
  79.         (set oldwert2 (BITAND (getversion "libs:reqtools.library") 65535))
  80.         (if    (NOT(askbool
  81.                 (prompt "\nReqTools.library version "oldwert1"."oldwert2"\nis currently installed.\n\nDo you want to replace it by version "wert1"."wert2" ?\n")
  82.                 (help "If the installed version of ReqTools.library is older than the provided one, you should replace it.\n\n" @askbool-help)
  83.                 (default 1)
  84.             ))
  85.             (set flag 0)
  86.         )
  87.     )
  88.     (if    (NOT(askbool
  89.         (prompt "\nDo you want to install\nReqTools.library version "wert1"."wert2" ?\n")
  90.         (help "Several functions of Ordering are not available if ReqTools.library is not installed. So you should install it.\n\n" @askbool_help)
  91.         (default 1)
  92.         ))
  93.         (set    flag 0)
  94.     )
  95.  
  96. )
  97.  
  98. (if    (= flag 1)
  99.     (copylib
  100.         (prompt "\nCopying ReqTools.library...\n")
  101.         (help @copylib-help)
  102.         (source "Libs/reqtools.library")
  103.         (dest   "Libs:")
  104.     )
  105. )
  106.  
  107.  
  108. (complete 50)
  109.  
  110. (set wert1 (/ (getversion "libs/powerpacker.library") 65536))
  111. (set wert2 (BITAND (getversion "libs/powerpacker.library") 65535))
  112.  
  113. (set    flag 1)
  114. (if    (exists "Libs:powerpacker.library" (noreq))
  115.     (
  116.         (set oldwert1 (/ (getversion "libs:powerpacker.library") 65536))
  117.         (set oldwert2 (BITAND (getversion "libs:powerpacker.library") 65535))
  118.         (if    (NOT(askbool
  119.                 (prompt "\nPowerPacker.library version "oldwert1"."oldwert2"\nis currently installed.\n\nDo you want to replace it by version "wert1"."wert2" ?\n")
  120.                 (help "If the installed version of PowerPacker.library is older than the provided one, you should replace it.\n\n" @askbool-help)
  121.                 (default 1)
  122.             ))
  123.             (set    flag 0)
  124.         )
  125.     )
  126.     (if    (NOT(askbool
  127.         (prompt "\nDo you want to install\nPowerPacker.library version "wert1"."wert2" ?\n")
  128.         (help "Ordering can not decrunch powerpacked files without PowerPacker.library.\n\n" @askbool_help)
  129.         (default 1)
  130.         ))
  131.         (set    flag 0)
  132.     )
  133.  
  134. )
  135.  
  136. (if    (= flag 1)
  137.     (copylib
  138.         (prompt "\nCopying PowerPacker.library...\n")
  139.         (help @copylib-help)
  140.         (source "Libs/powerpacker.library")
  141.         (dest   "Libs:")
  142.     )
  143. )
  144.  
  145.  
  146. (complete 60)
  147.  
  148. (set    flag 1)
  149. (if    (exists "Libs:whatis.library" (noreq))
  150.     (if    (NOT(askbool
  151.             (prompt "\nWhatIs.library is already installed.\n\nDo you want to replace it ?\n")
  152.             (help "Please check if your version of WhatIs.library is newer than the provided one. Else you should replace it.\n\n" @askbool-help)
  153.             (default 1)
  154.         ))
  155.         (set    flag 0)
  156.     )
  157.     (if    (NOT(askbool
  158.         (prompt "\nDo you want to install WhatIs.library ?\n")
  159.         (help "Ordering may recognize lots of filetypes using WhatIs.library.\n\n" @askbool_help)
  160.         (default 1)
  161.         ))
  162.         (set    flag 0)
  163.     )
  164.  
  165. )
  166.  
  167. (if    (= flag 1)
  168.     (copylib
  169.         (prompt "\nCopying WhatIs.library...\n")
  170.         (help @copylib-help)
  171.         (source "Libs/whatis.library")
  172.         (dest   "Libs:")
  173.     )
  174. )
  175.  
  176.  
  177. (complete 70)
  178.  
  179. (set    flag 1)
  180. (if    (exists "S:FileTypes" (noreq))
  181.     (if    (NOT(askbool
  182.             (prompt "\nYou already have a 'FileTypes' file in S:.\n\nDo you want to replace it ?\n")
  183.             (help "'S:FileTypes' contains the filetypes descriptions.\n\n" @askbool-help)
  184.             (default 1)
  185.         ))
  186.         (set    flag 0)
  187.     )
  188. )
  189. (if    (= flag 1)
  190.     (copyfiles
  191.           (prompt "\nCopying 'FileTypes' to S:\n")
  192.         (help @copyfiles-help)
  193.           (source "s/FileTypes")
  194.           (dest    "S:")
  195.         (files)
  196.     )
  197. )
  198.  
  199.  
  200. (complete 80)
  201.  
  202. (if (exists "LOCALE:")
  203.     (
  204.         (set catlang
  205.             (askchoice
  206.                 (prompt "Which catalogs do you want to install ?")
  207.                 (help "If you want Ordering to be in your own language, you should install the corresponding catalogs.\n\n" @askchoice-help)
  208.                 (choices "Dansk" "English (internal)" "Français" "Italiano" "Norsk" "Polski" "Svenska")
  209.                 (default 1)
  210.             )
  211.         )
  212.         (if (<> catlang 1)
  213.             (
  214.                 (set language (select catlang "dansk" "english" "français" "italiano" "norsk" "svenska"))
  215.                 (makedir (tackon "LOCALE:Catalogs/" language))
  216.                 (copyfiles
  217.                     (source (tackon (tackon "Locale/Catalogs/" language) "Ordering.catalog"))
  218.                     (dest (tackon "LOCALE:Catalogs/" language))
  219.                       (prompt "\nCopying 'Ordering.catalog'\n")
  220.                     (help @copyfiles-help)
  221.                 )
  222.                 (copyfiles
  223.                     (source (tackon (tackon "Locale/Catalogs/" language) "OrderingPrefs.catalog"))
  224.                     (dest (tackon "LOCALE:Catalogs/" language))
  225.                       (prompt "\nCopying 'OrderingPrefs.catalog'\n")
  226.                     (help @copyfiles-help)
  227.                 )
  228.             )
  229.         )
  230.     )
  231.  
  232. )
  233.  
  234.  
  235. (complete 90)
  236.  
  237. (if     (askbool
  238.         (prompt "\n Do you want to install a documentation file ?\n")
  239.         (help "You should install the documentation to get the online help" @askbool-help)
  240.     )
  241.     (
  242.         (set doc
  243.             (askchoice
  244.                 (prompt "Which documentation do you want to install ?")
  245.                 (help "Please select the language.\n\n" @askchoice-help)
  246.                 (choices "English documentation" "French documentation" "Italian documentation")
  247.                 (default 0)
  248.             )
  249.         )
  250.  
  251.         (if (= doc 0)
  252.             (set orddoc-source "Ordering_English.Guide")
  253.         )
  254.         (if (= doc 1)
  255.             (set orddoc-source "Ordering_Français.Guide")
  256.         )
  257.         (if (= doc 2)
  258.             (set orddoc-source "Ordering_Italiano.Guide")
  259.         )
  260.  
  261.         (set orddoc-dest
  262.             (askdir
  263.                 (prompt "Select directory")
  264.                 (help @askdir-help)
  265.                 (default "HELP:")
  266.             )
  267.         )
  268.  
  269.         (copyfiles
  270.             (prompt "\nCopying documentation...\n")
  271.             (help @copyfiles-help)
  272.             (source orddoc-source)
  273.             (dest   orddoc-dest)
  274.             (newname "Ordering.Guide")
  275.             (files)
  276.             (infos)
  277.         )
  278.     )
  279. )
  280.  
  281. (complete 100)
  282.